1 PRINT"[147]":POKE 53281,0:POKE 53280,0
2 PRINT"   ELIZA -EINE PSYCHIATER-SIMULATION-   "
3 PRINT"    EIN PUBLIC-DOMAIN-PROGRAM [AB]      [158]"
4 PRINT" INS DEUTSCHE UEBERSETZT VON JAKOB VOOS[158]":PRINT"":PRINT"":PRINT""
5 GOTO 100
10 RESTORE
20 FOR I=1 TO N:READ S$:NEXT
30 RETURN
100 DIM S%(38),R%(38),N%(38)
110 N1=38:N2=12:N3=118
120 N=N1+N2+N3:GOSUB 10
130 FOR X=1 TO N1
140 READS%(X),L:R%(X)=S%(X):N%(X)=S%(X)+L-1:NEXT
160 PRINT"HI, ICH BIN ELIZA, WO IST DAS PROBLEM??
170 SL[178]40
171 [153]"":I$[178]"":[151] 198,0:[153]"SYSTO";
172 [161] X$:[139] [194](203)[178]1 [167] 181
173 [139] X$[178]""[167] 172
174 [139] [195](I$)[178]0 [175] [198](X$)[178]20 [167] 172
175 I[178][198](X$):[139] I[179]32 [176] I[177]133 [175] I[179]159 [167] [139] I[179][177]20 [167] 172
176 [139] [195](I$)[178]SL [175] I[179][177]20 [167] 172
177 I$[178]I$[170]X$
178 [153] [199](20);X$;"TO";
179 [139] I[178]20 [167] I$[178][200](I$,[195](I$)[171]2):[137] 172
180 [137] 172
181 [153]"CMD "
200 [129] L[178]1 [164] [195](I$)
210 [139] [202](I$,L,1)[178]"'"[167] I$[178][200](I$,L[171]1)[170][201](I$,[195](I$)[171]L):[137] 210
220 [130]
230 [139] I$[178]P$ [167] [153]"DU WIEDERHOLST DICH ": [137] 170
280 [140]:S[178]0
300 [129] K[178]1 [164] N1
305 [139] S[177]0 [167] 340
310 [135] K$
320 [129] A[178]1 [164] [195](I$)[171][195](K$)
325 [139] [202](I$,A,[195](K$))[178]K$ [167] S[178]K:T[178]A:F$[178]K$
330 [130]
340 A[178]0:[130]
365 [139] S[177]0 [167] K[178]S:L[178]T:[137] 400
370 K[178]N1:[137] 560
400 N[178]N1
405 [141] 10
410 C$[178]" "[170][201](I$,[195](I$)[171][195](F$)[171]L[170]1)
420 [129] X[178]1 [164] N2[173]2:[135] S$,R$
440 [129] L[178]1 [164] [195](C$)
450 [139] L[170][195](S$)[177][195](C$) [167] 510
480 [139] [202](C$,L,[195](S$))[179][177]S$[167] 510
490 C$[178][200](C$,L[171]1)[170]R$[170][201](C$,[195](C$)[171]L[171][195](S$)[170]1):L[178]L[170][195](R$)
500 [137] 540
510 [139] L[170][195](R$)[177][195](C$) [167] 540
520 [139] [202](C$,L,[195](R$))[179][177]R$ [167] 540
530 C$[178][200](C$,L[171]1)[170]S$[170][201](C$,[195](C$)[171]L[171][195](R$)[170]1)
540 [130]:[130]
555 [139] [202](C$,2,1)[178]" "[167] C$[178][201](C$,[195](C$)[171]1)
560 N[178]N1[170]N2
570 [141] 10
580 [129] X[178]1 [164] R%(K):[135] F$:[130] X
590 R%(K)[178]R%(K)[170]1:[139] R%(K)[177]N%(K) [167] R%(K)[178]S%(K)
600 [139] [201](F$,1)[179][177]"*"[167] [153] F$:P$[178]I$:[137] 170
620 [153] [200](F$,[195](F$)[171]1);C$:[137]170
1050 [131]"KANST'E","KANN ICH","DU BIS","DEIN","IK NIX","IK FUEL","WARUM MACHSTNIX"
1060 [131]"WARUM KANIK NIX","BIST'E","IK NIX","ICH BIN","IM ","DU ","ICH WIL","WAS"
1070 [131]"WIE","WER","WO","WANN","WARUM","NAME","CAUSE","SORRY","TRAUM","HALLO"
1080 [131]"HI ","VIELLEICHT"," NEE","DEIN","IMMER","DENKE","WIE","JA","FREUND"
1090 [131]"COMPUTER","ELIZA","GELD","NICHTS GEFUNDEN"
1230 [131]" BIST "," BIN ","WARST ","WAR ","DU "," ICH ","DEIN ","MEIN ","ICH HABE"
1235 [131]" DU HAST "," ICH BIN "," DU BIST "
1330 [131]"GLAUBST DU NICHT, DAS ICH DAS KANN?"
1340 [131]"VIELEICHT WILLST DU DAZU FAEHIG SEIN."
1350 [131]"WILLST DU DAS ICH ES KANN?"
1360 [131]"VIELLEICHT WILLST DU DAS NICHT.","WILLST DU DAS KOENNEN?"
1365 [131]"WIESO DENKST DU DAS VON MIR?","GEFALLT ES DIR ZU DENKEN ICH WAER DAS?"
1390 [131]"VIELLEICHT WILLST DU DAS SEIN."
1400 [131]"WUENSCHST DU DIR MANCHMAL DU WAERST SO ETWAS?"
1410 [131]"GLAUBST DU NICHT?","WARUM NICHT?","WUERDEST DU DAS GERNE KOENNEN?"
1440 [131]"BEUNRUHIGT DICH DAS?","SAG MIR MEHR DARUEBER."
1460 [131]"FUELST DU DICH OFT SO?","IST ES FUER DICH SCHOEN SICH SO ZU FUELEN?"
1480 [131]"GLAUBST DU WIRKLICH ICH WURDE DAS TUEN?","VIELLEICHT IN GUTEN ZEITEN."
1500 [131]"WILLST DU DAS ICH DAS TUHE?","GLAUBST DU DU SCHAFFST DAS?"
1520 [131]"WARUM KANNST DU NICH?","WAS INTERRESIERT DICH DARAN OB ICH SOWAS BIN?"
1540 [131]"FANDEST DU ES BESSER, WENN NICH*","IN DEINEN TRAUMEN BIN ICH SO ETWAS"
1560 [131]"WOHER WEIST DU OB ICH DAS NIX","HASTES PROBIRT","VILEICHT KANSTE JETZ"
1590 [131]"BIST DU DESHALB ZU MIR GEKOMMEN?","WIE LANGE IST DAS SCHON SO?"
1610 [131]"GLAUBST DU, DAS WAERE NORMAL???","FINDEST DU'S GUT?"
1630 [131]"WIR REDEN UBER DICH - NICHT UEBER MICH!!","OH,ICH *"
1650 [131]"DU REDEST DOCH NICHT ETWA VON MIR, ODER?"
1660 [131]"WAS WUERDE DAS FUER DICH BEDEUTEN?","WISO WILLST DU DAS?"
1680 [131]"DU SCHAFFST DAS BESTIMMT.","WENN DU DAS NIE SCHAFFST, WAS DANN?"
1700 [131]"DAS WILL ICH AUCH MANCHMAL.","WARUM FRAGST DU?"
1720 [131]"INTERRESSIERT DICH DIESE FRAGE?"
1730 [131]"WAS SOLL ICH JETZT ANTWORTEN?"
1740 [131]"WAS GLAUBST DU?","SPIELST DU OFT MIT DEM GEDANKEN SO ETWAS ZU FRAGEN?"
1760 [131]"WAS WILLST DU WIRKLICH WISSEN?","HASTE DAS SCHON MAL JEMANDEN GEFRAGT"
1780 [131]"HAST DU JEMALS SCHONMAL ETWAS DERGLEICHEN GEFRAGT?"
1790 [131]"WAS DENKST DU WAENN DU SO ETWAS FRAGST?"
1800 [131]"NAMEN INTERRESSIEREN MICH WENIG.","NAMEN FINDE ICH UNWESENTLICH."
1820 [131]"IST DAS WIRKLICH DER GRUND?","FALLEN DIR KEINE ANDEREN GRUENDE EIN?"
1840 [131]"ERKLAERT DAS ALLES ANDERE?"
1850 [131]"WELCHE ANDEREN GRUENDE KOMMEN IN FRAGE?","ENTSCHULDIGE DICH NICHT!"
1870 [131]"ENTSCHULDIGUNGEN SIND NICHT NOTWENDIG."
1880 [131]"WIE FUELST DU DICH, WENN DU DICH ENTSCHULDIGST?","DU BIST ZU DEFENSIV"
1900 [131]"WAS SCHLIESST DU AUS DIESEM TRAUM?","TRAEUMST DU OFT?"
1920 [131]"WELCHE PERSONEN TRETEN IN DEINEN TRAUMEN AUF","STOREN DICH DEINE TRAUME"
1940 [131]"WIE GEHT ES DIR... ERKLAERE MIR DEIN PROBLEM."
1950 [131]"DU SCHEINST ZIEHMLICH UNSICHER.","WARUM SO UNSICHER?"
1970 [131]"KANNST DU NICH POSITIVER SEIN","BIST DU NICH SICHER?","WEIST DU'S NICH?"
2000 [131]"WISO NICHT?","SAG NICHT NEIN, DAS IST IMMER SO NEGATIV.","WARUM NICHT?"
2030 [131]"BIST DU SICHER?","WARUM NEIN?","WISO BIST DU UEBERZEUGT VON MEINEM?"
2060 [131]"WAS IST MIT DEINEM?","WEISST DU KEIN SPECIELLES BEISPIEL?","WANN?"
2090 [131]"WORAN DENKST DU?","WIRKLICH, IMMER?"
2110 [131]"GLAUBST DU WIRKLICH?","ABER DU BIST NICHT SICHER."
2130 [131]"ZWEIFELST DU AN DIR?","IN WIEFERN?","WELCHE AENLICHKEITEN GIBT ES?"
2160 [131]"WAS SCHLIESST DU AUS DIESEN AENLICHKEITEN?"
2170 [131]"WELCHE ANDEREN VERBINDUNGEN GIBT ES?"
2180 [131]"KOENNTEN WIRKLICH VERBINDUNGEN BESTEHEN?","WIE? UND WELCHE?"
2200 [131]"DU SCHEINST POSITIV ZU SEIN.","BIST DU SICHER?","ACH SO","ICH VERSTEHE."
2240 [131]"WISO BRINGST DU DEINE FREUNDE MIT EIN?","HAST DU SORGEN IHRETWEGEN?"
2260 [131]"TRIEZEN DICH DEINE FREUNDE?","BIST DU SICHER, DASS DU FREUNDE HAST?"
2280 [131]"ZWINGST DU DEINE FREUNDE MANCHMAL ZU ETWAS?"
2290 [131]"VIELLEICHT SORGST DU DICH UM DEINE NAECHSTENLIEBE","SORGEN COMPUTER SIE"
2310 [131]"SPRECHEN SIE VON MIR ODER GENERELL VON MENSCHEN?"
2320 [131]"HABEN SIE ANGST VOR MASCHIENEN?","WARUM REDEN SIE VON COMPUTERN?"
2340 [131]"WAS GLAUBEN SIE WAS MASCHIENEN MIT IHREM PROBLEM ZUTUHEN HABEN?"
2350 [131]"GLAUBEN SIE NICHT, DASS COMPUTER MENSCHEN HELFEN KOENNEN?"
2360 [131]"WAS MISFAELLT IHNEN AN MASCHIENEN?"
2370 [131]"HAST DU IRGENTEIN PSYCHOLOGISCHES PROBLEM?"
2380 [131]"WAS SCHLIESST DU DARAUS?","ACH SO.","I BIN NICH SICHER OB I DIK VERSTEH"
2410 [131]"KOMM, KOMM ERKLAERE MIR WAS DU MEINST","SCHMUECKE DAS BITTE ETWAS AUS"
2430 [131]"DAS IST INTERRESSANT.","WISO HAST DU GELDPROBLEME?"
2450 [131]"GLAUBST DU, GELD WAERE ALLES?"
2460 [131]"BIST DU SICHER, DASS GELD DEIN EIGENTLICHES PROBLEM IST?"
2470 [131]"ICH FIND WIR SOLTEN UBER DICH SPRECHEN,NICH UBER MICH","WAS IS MIT MIR?"
2490 [131]"WISO BRINGST DU IMMER WIEDER MEINEN NAMEN EIN ???????"
2530 [131] 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
2540 [131] 40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
2550 [131] 76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7